perm filename DIF[MAC,LSP] blob
sn#592378 filedate 1981-06-02 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00005 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 1,1
C00005 00003 1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 1,1
C00008 00004 1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 6,6
C00013 00005 1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 22,22
C00017 ENDMK
C⊗;
1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 1,1
**** File 1) EMACLS.14[MAC,LSP]/1P/5L
1) C00019 00003 E Manipulation Routines
1) C00025 00004 Routines to queue up mail
1) C00027 00005 αxSLISP dsk:maclsp.dmp[1,3](elisp.ini)
1) C00036 00006 Mail Interface
1) C00040 00007 Mail Type
1) C00045 00008 Wait Mail
1) C00048 00009 Mask Routines
1) C00050 00010 Mail SFA
1) C00054 00011 Tyi
1) C00057 00012 Tyo
1) C00059 00013 Force Output
1) C00063 00014 Message Align
1) C00065 00015 Mail Refresh
1) C00070 00016 Transfer Buffer
1) C00072 00017 Wait OK
1) C00073 00018 Send Simple Message
1) C00076 00019 Send Control Char
1) C00078 00020 Em:init
1) C00080 00021 Send OK
1) C00081 00022 Em:eval-protect
1) C00082 00023 Mail queue
1) C00083 00024 Readonly Variables
1) C00089 00025 Debugging Routines
1) C00090 00026 Storage for Mail routines
1) C00093 ENDMK
1) C⊗;
**** File 2) EMACLS.15[MAC,LSP]/1P/5L
2) C00020 00003 E Manipulation Routines
2) C00026 00004 Routines to queue up mail
2) C00028 00005 αxSLISP dsk:maclsp.dmp[1,3](elisp.ini)
2) C00037 00006 Mail Interface
2) C00041 00007 Mail Type
2) C00046 00008 Wait Mail
2) C00049 00009 Mask Routines
2) C00051 00010 Mail SFA
2) C00055 00011 Tyi
2) C00058 00012 Tyo
2) C00060 00013 Force Output
2) C00064 00014 Message Align
2) C00066 00015 Mail Refresh
2) C00071 00016 Transfer Buffer
2) C00073 00017 Wait OK
2) C00074 00018 Send Simple Message
2) C00077 00019 Send Control Char
2) C00079 00020 Em:init
2) C00081 00021 Send OK
2) C00082 00022 Em:eval-protect
1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 1,1
2) C00083 00023 Mail queue
2) C00085 00024 Readonly Variables
2) C00091 00025 Debugging Routines
2) C00092 00026 Storage for Mail routines
2) C00095 ENDMK
2) C⊗;
***************
**** File 1) EMACLS.14[MAC,LSP]/2P/19L
1) -em:filemode- -em:linel-)
**** File 2) EMACLS.15[MAC,LSP]/2P/19L
2) sail-mail-service
2) -em:filemode- -em:linel-)
***************
**** File 1) EMACLS.14[MAC,LSP]/2P/47L
1) (em:eval-protect)
1) )
**** File 2) EMACLS.15[MAC,LSP]/2P/48L
2) (setq sail-mail-service 'em:sail-mail-interrupt-handler)
2) )
***************
**** File 1) EMACLS.14[MAC,LSP]/4P/9L
1) (let ((ar (intern (gensym))))
1) (*array ar 'fixnum 32.)
1) (setq -em:queue-
1) (nconc -em:queue- `(,ar )))
1) (em:business-address
1) (maknum
1) (get ar 'array)))))
1) (defun em:get-queue ()
**** File 2) EMACLS.15[MAC,LSP]/4P/9L
2) (let ((ar (*array () 'fixnum 32.)))
2) (setq -em:queue-
2) (nconc -em:queue- `(,ar )))
2) (em:business-address ar)))
2) (defun em:get-queue ()
***************
**** File 1) EMACLS.14[MAC,LSP]/6P/61L
1) (move tt (special sail-mail-interrupt))
1) (movem tt ijobnum)
**** File 2) EMACLS.15[MAC,LSP]/6P/61L
1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 6,6
2) (move tt (special ejobnum))
2) (movem tt ijobnum)
***************
**** File 1) EMACLS.14[MAC,LSP]/6P/65L
1) (jsp t fxcons) ;find that entry!
1) (movem a (special ejobnum))
1) (setzm 0 (special sail-mail-interrupt))
1) (pushj p em:get-terminal)
1) (popj p)
1) (entry em:set-jobnum subr)
**** File 2) EMACLS.15[MAC,LSP]/6P/65L
2) (jsp t fxcons)
2) (movem a (special ejobnum))
2) (jrst 0 em:get-terminal)
2) (entry em:set-jobnum subr)
***************
**** File 1) EMACLS.14[MAC,LSP]/7P/3L
1) (setzm 0 (special sail-mail-interrupt))
1) (setzm 0 tyi-inited)
**** File 2) EMACLS.15[MAC,LSP]/7P/4L
2) (setzm 0 tyi-inited)
***************
**** File 1) EMACLS.14[MAC,LSP]/8P/8L
1) (skipe 0 (special sail-mail-interrupt))
1) (jrst 0 wm2)
1) wm6 (skipn 0 (special -em:queue-))
**** File 2) EMACLS.15[MAC,LSP]/8P/8L
2) wm6 (skipn 0 (special -em:queue-))
***************
**** File 1) EMACLS.14[MAC,LSP]/8P/30L
1) (setzm 0 (special sail-mail-interrupt))
1) (setom 0 mailinp) ;mail now in
**** File 2) EMACLS.15[MAC,LSP]/8P/28L
2) (setom 0 mailinp) ;mail now in
***************
**** File 1) EMACLS.14[MAC,LSP]/8P/49L
1) (move a 0 a)
1) (hlrz a 0 a)
1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 8,8
1) (push p 1)
1) (movei t wm5)
1) (push p t)
1) (push p 1)
1) (movni t 1)
1) (jcall 16 '*rearray)
1) wm5 (sub p (% 0 0 1 1))
1) (hrlzi freeac svdacs)
**** File 2) EMACLS.15[MAC,LSP]/8P/46L
2) (hrlzi freeac svdacs)
***************
**** File 1) EMACLS.14[MAC,LSP]/15P/7L
1) ; (skipn 0 (special sail-mail-interrupt))
1) ; (jrst 0 mr2)
1) ; (setom 0 mailinp)
1) ; (setzm 0 (special sail-mail-interrupt))
1) ; (pushj p em:process-mail)
1) ; (721←33 0 mailint) ;imskst
1) ; (popj p)
1) ; (setzm 0 (special sail-mail-interrupt))
1) mr2
**** File 2) EMACLS.15[MAC,LSP]/15P/7L
2) mr2
***************
**** File 1) EMACLS.14[MAC,LSP]/17P/5L
1) (skipe 0 (special sail-mail-interrupt))
1) (jrst 0 wo1)
1) (skipn 0 (special -em:queue-))
**** File 2) EMACLS.15[MAC,LSP]/17P/5L
2) (skipn 0 (special -em:queue-))
***************
**** File 1) EMACLS.14[MAC,LSP]/17P/15L
1) (setzm 0 (special sail-mail-interrupt))
1) (hrrzs tt) ;flush short?
**** File 2) EMACLS.15[MAC,LSP]/17P/13L
2) (hrrzs tt) ;flush short?
***************
**** File 1) EMACLS.14[MAC,LSP]/22P/5L
1) (movem a (special sail-mail-address))
1) (movei a 't)
1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 22,22
**** File 2) EMACLS.15[MAC,LSP]/22P/5L
2) (movem a (special sail-mail-service))
2) (movei a 't)
***************
**** File 1) EMACLS.14[MAC,LSP]/22P/12L
1) (movem a (special sail-mail-address))
1) (popj p)
**** File 2) EMACLS.15[MAC,LSP]/22P/12L
2) (movem a (special sail-mail-service))
2) (popj p)
***************
**** File 1) EMACLS.14[MAC,LSP]/24P/1L
1) ;;; Readonly Variables
**** File 2) EMACLS.15[MAC,LSP]/23P/10L
2) (entry em:mail-interrupt-handler subr)
2) (args em:mail-interrupt-handler (nil . 1))
2) (call 0 'em:add-queue)
2) (hrrz tt 0 a) ;get address for buffer
2) (mail 2 0 tt) ;get the mail
2) (jfcl) ;huh?
2) (move d 0 tt) ;Validation
2) (hlrz d 0 tt) ;validation
2) (caie d epr)
2) (jrst 0 false)
2) (hrrz d 0 tt)
2) (came d ijobnum)
2) (jrst 0 false)
2) (move d 1 r) ;type
2) (cain d 7)
2) (calli 1 12) ;suicide
2) (caie d 6) ;control char?
2) (jrst 0 true) ;no, just report the incident
2) (move tt 1 tt)
2) (jsp t fxcons)
2) (jcall 1 'em:control-dispatch)
2) ;;; Readonly Variables
***************
**** File 1) EMACLS.14[MAC,LSP]/24P/77L
1) (skipe 0 (special sail-mail-interrupt))
1) (jrst 0 rm1)
1) (hrlzi a omailbox) ;zeros omailbox
1) (hrri a (+ omailbox 1)) ;unless interrupt caught some mail
1) EMACLS.14[MAC,LSP] and 2) EMACLS.15[MAC,LSP] 6-02-81 21:35 pages 24,24
1) (setzm 0 omailbox)
1) (blt a (+ omailbox (- mlblksize 1))) ;zero it
1) rm1 (move a rovpointtem) ;setup output byte count
1) (movem a rovpoint)
**** File 2) EMACLS.15[MAC,LSP]/24P/77L
2) (move a rovpointtem) ;setup output byte count
2) (movem a rovpoint)
***************